1 CLEAR,39274:CLS:RESTORE:FORI=0TO25:READA$:POKE40912*I,VAL("&H+A$):NEXT:FORI=0TO6:READA$:POKE40951+I,VAL("&H"+A$):NEXT:FORI=0TO22:READA$:A$=LEFT$(A$,31):FORJ=0TOLEN(A$)-1:POKE39275+I*32+J,ASC(MID$(A$,J+1,1)):NEXTJ:POKE39275+I*32+LEN(A$),0:NEXTI
2 EXEC40951:DATAC1,1E,2B,05,8E,96,2A,20,03,8E,99,6A,86,20,5A,3D,30,8B,BD,CE,2C,3F,08,7E,C3,75,8E,9F,D0,BF,21,FC,39
3 DATA "NEXT without FOR","Syntax Error","RETURN without GOSUB","Out of DATA","Illegal Function Call",Overflow,"Out of Memory","Undefined Line Number","Bad Subscript","Duplicate Definition","Division by zero","Illegal Direct","Type Mismatch"
4 DATA "Out of String space","Long String","String formula Too complex","Can't continue","Undefined user Fonction","No RESUME","RESUME without Error","Missing Operand","FOR without NEXT"
5 DATA "Not in use","bad File Mode","Already Open","Input Output error","Input past End","bad File Descriptor","Direct Statement","Not Open","Bad Data","device In Use","Device Unavailable","Protected Program"
6 'ATTENTION:CA NE MARCHE PAS SOUS DOS      Pout  changer  les  messages          d'erreur  il  suffit  de              changer  les  DATAs !!